home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / COMMADIO / GTPCPS44.LZH / PCP-PRTL.SCR < prev    next >
Text File  |  1988-12-30  |  2KB  |  54 lines
  1. ;  GTPCP\V4.4 - PCP-PRTL SCRIPT
  2. ;  (C) Perry Alexander - Dec 1988
  3. ;  GT Power Version 14.03
  4. ;  Script to Dial Portal
  5. ;
  6. CLEAR
  7. WRITELN " ╔═══════════════════════════════════════════════════════════════╗ "
  8. WRITELN " ║                           GTPCP 4.4                           ║ "
  9. WRITELN " ║                                                               ║ "
  10. WRITELN " ║            Attempting to connect to Portal via PCP            ║ "
  11. WRITELN " ║                                                               ║ "
  12. WRITELN " ║        To Return to Terminal Mode   . . . . . Press Alt-X     ║ "
  13. WRITELN " ╚═══════════════════════════════════════════════════════════════╝ "
  14. TWAIT 4000
  15. CLEAR
  16. SEND "C PORTAL,"
  17. FUNCTION KEY SHIFT 8
  18. WAIT FOR "WORD ="
  19. V10 ADD %10 1
  20. FUNCTION KEY SHIFT 9
  21. GETLN V9
  22. CASE %9 OF
  23.  ~ CONNECT
  24.    BEEP
  25.    WRITELN "You are now connected to Portal"
  26.    WRITELN "Use ALT-X command to return to Node Menu after logging off"
  27.    SENDLN
  28.    SENDLN
  29.    ONLINE
  30.    BREAK
  31.    SENDLN "@"
  32.    WAIT FOR "@"
  33.    SENDLN "D"
  34.    WAIT FOR "CONN"
  35.    WAIT FOR "@"
  36.    CHAIN "PCP-NODE.SCR"
  37.  ~ BUSY
  38.    CLEAR
  39.    WAIT FOR "@"
  40.    WRITELN
  41.    WRITE       "   Retrying ════════ PORTAL"
  42.    WRITE       "   Number of Attempts .....  "
  43.    WRITELN %10
  44.    WRITELN
  45.    WRITELN     "   To return to Node Menu - Press [Ctl-K] "
  46.    TWAIT 2000
  47.    CYCLE 100
  48.    CHAIN "PCP-NODE.SCR"
  49.  ?
  50.    WRITE "TELENET response unrecognized :"
  51.    CHAIN "PCP-NODE.SCR"
  52. ESAC
  53.    CHAIN "PCP-NODE.SCR"
  54.